1 REM *** PLANET SETUP *** 2 REM MAKES 'GYPSY PLANETS' FOR 'GYPSY' 5 POKE 53265,PEEK(53265)OR 64 10 OPEN 2,8,2,"GYPSY PLANETS,SEQ,WRITE" 14 REM * PLANET NAMES * 15 B$="":B=0:X$=CHR$(13) 16 READ A$ 17 IF A$="XXXXX" THEN PRINT#2,A$:GOTO 50 18 GOSUB 45:PRINT#2,A$:PRINT A$ 19 B=B+1:GOTO 16 21 DATA ANDALUSIA,IBERIA,HIBERNIA,CALEDONIA,GALES,GAUL,LUSITANIA,ATLANTIS 22 DATA MISERICORDIA,SALAMANCA,CATALONIA,LANGUEDOC,NAVARRE,SCANDIA,ULSTER,ZULU 23 DATA KURDISTAN,ARMENIA,SAMARIA,GALILEE,SALEM,PLYMOUTH,ERITREA,OGADEN 24 DATA HADRAMAWT,SHONA,NDEBELE,UZBEKSKAYA,BURYAT,KHALKHA,AIMAQ,PRADESH 25 DATA PANDIT,KALASH KAFIR,BORUSH,SHERPA,LEPCHA,GURUNG,NEPHILIM,THAI 26 DATA PERSIA,BACTRIA,SARDIS,LACONIA,ETRURIA,DALMATIA,VENETIA,DACIA 27 DATA IBANA,MAORI,WIKMUNGKAN,WALBIRI,JIGALONG,KUKUKUKU,GOILALA,ARAPESH 28 DATA YAP,FANG,BIAFRA,HAUSA,MALINKE,DOGON,DRUZIA,SHEBA 29 DATA KABAB,HOMR,MYCENAE,KNOSSOS,LATIUM,BILBAO,CANTABRIA,ROMANY 30 DATA BOHEMIA,SILESIA,ESTONIA,LITHUANIA,FLANDERS,BRETAGNE,ORANGE,QUECHUA 31 DATA OLMECA,TEOTIHUACAN,TIKAL,TITICACA,MACCHU PICCHU,GE,GUARANI,XINGU 32 DATA BAHIA,AMAHUACA,AYMARA,AINU,YANOMAMO,OTAVALO,GUAJIRO,KOGI 33 DATA COSTENOGA,CHEROKEE,DAKOTA,HOPI,SHOSHONE,QAPAW,WACO,KICKAPOO 34 DATA WAMPANOAG,CADDO,SHAWNEE,CREEK,APACHE,PUEBLO,NAVAHO,ARAPAHO 35 DATA ACADIA,MANCHURIA,TIBET,SHOGUN,HAKKA,TAIPEI,HUNAN,HMONG 36 DATA ROCANNON,ARRAKIS,MEDEA,TERMINUS,URTH,RAMA,TREASON,WORTHING 37 DATA TRONDHEIM,NAUVOO,DESERET,EREWHON,RIVERWORLD,TROUT,INWIT,DANDELION 38 DATA WOZNIAK,JOBS,BUSHNELL,TRAMIEL,POURNELLE,TURING,ASKY,UNIVAC 39 DATA NIVEN,BISHOP,O'NEILL,VARLEY,MARTIN,KESSEL,KILROY,VONNEGUT 40 DATA YOLEN,NORTON,BRUMMET,BOVA,ASPRIN,TURTLEDOVE,RUCKER,LIAVEK 41 DATA SWANWICK,SHINER,VAN NAME,WYLDE,FOWLER,SHEPARD,MEACHAM,SCHIFF 42 DATA FERMAN,MOYNIHAN,IACOCCA,MINAS GERAIS,MOAB,EDOM,CANAAN,SUMER 43 DATA BABYLON,BILOXI,MISHAWAKA,SCHOLZ,MAYHAR,CARTHAGE,KEIZER,POIUYT,XXXXX 44 REM CONVERT STRINGS 45 D$="":FOR I=1 TO LEN(A$):C$=MID$(A$,I,1) 46 D$=D$+CHR$(ASC(C$)OR 192):NEXT:A$=D$:RETURN 49 REM ** WORLD TYPES 50 FOR I=0 TO 5:READ A$:PRINT#2,A$:PRINT I,A$:NEXT 51 DATA A SPACE STATION,A LARGE MOON,A SMALL ROCKY PLANET 52 DATA UNINHABITED,POPULATED BY HUMANS,POPULATED BY ALIENS 59 REM ** GYPSY NAMES 60 FOR K=0 TO 32:READ A$:GOSUB 45:PRINT#2,A$:PRINT K,A$:NEXT 65 DATA RANA,MARA,MISHAK,DOC,GRANNY,VISH,FINGERS,HOPPER,LOOP,DRAM,HACK,POCK 66 DATA WILL,ALEC,BOOKER,CLAM,FIZZ,IGOR,JACQUES,KING,NOOSE,OPAL,QUINK,RABBIT 67 DATA SHAKER,TOFF,ULLY,YACKITY,ZIPPER,KAGAN,THUMB,BLADE,GREGORIO 98 REM ** UNINHABITED WORLDS 99 FOR I=0 TO 9:READ A$,B$,C$,D$,E$,F$,G$:PRINT#2,A$X$B$X$C$X$D$X$E$X$F$X$G$ 100 PRINT I,A$:NEXT 101 DATA COLD BARE ROCK WITHOUT WATER OR WIND 102 DATA FELL INTO A CREVICE,GOT LOST AND FROZE TO DEATH 103 DATA SET OFF AN AVALANCHE AND WAS CRUSHED 104 DATA A PURE VEIN OF PLATINUM,A CLIFF CARVED WITH AN ALIEN LANGUAGE 105 DATA THE ORIGINAL VOYAGER SPACECRAFT 106 DATA A THICK IMPENETRABLE LAYER OF VINES AND FERNS 107 DATA WAS DEVOURED BY A MAN-EATING PLANT,SANK INTO A HIDDEN BOG 108 DATA DIED OF VIOLENT ALLERGIES TO POLLEN 109 DATA A VINE THAT BEARS HIGH-CALORY FRUIT,SAP THAT HARDENS INTO JEWELS 110 DATA AN INSECT WHOSE BITE CURES CANCER 111 DATA A MILE-THICK LAYER OF DUST 112 DATA SANK INTO THE DUST AND DISAPPEARED,CHOKED TO DEATH IN THE WIND 113 DATA WAS EATEN BY A HUGE DUSTWORM,A PATCH OF EUPHORIA-CAUSING DUST 114 DATA A NEW SPECIES OF OXYGEN-MAKING MICROBE,DIAMONDS EXCRETED BY DUSTWORMS 116 DATA A SURFACE ENTIRELY ENCRUSTED WITH DAZZLING CRYSTALS 117 DATA FELL AND WAS CUT TO RIBBONS,WAS CRUSTED OVER WITH CRYSTALS 118 DATA WENT MAD FROM THE PATTERNS OF LIGHT 119 DATA CRYSTALS THAT HOLD MEGABYTES OF MEMORY 120 DATA LIVING CRYSTALS THAT PAINT WITH PURE LIGHT,HUGE EMERALDS 121 DATA THE HIGHLY RADIOACTIVE HUSK OF A WORLD THAT DIED IN NUCLEAR WAR 122 DATA DIED OF RADIATION POISONING,WAS KILLED BY A MUTATED VIRUS 123 DATA TRIGGERED AN ANCIENT LANDMINE,A SCULPTURE OF INEFFABLE BEAUTY 124 DATA THE HISTORY OF A LOST CIVILIZATION,A MUTATED SPECIES OF SENTIENT RAT 126 DATA THE DUSTY RUINS OF A SPECIES THAT LEFT TO VOYAGE AMONG THE STARS 127 DATA ATE A FRUIT THAT CAUSED FATAL DYSENTERY,WAS KILLED BY A CRAZED ROBOT 128 DATA FELL INTO A DISINTEGRATOR UNIT,A MATTER-DESTROYING DISINTEGRATOR 129 DATA THE SECRET OF INSTANT MATTER TRANSFER,A GALLERY OF PRICELESS PAINTINGS 131 DATA A VAST OCEAN WITHOUT A SPECK OF LAND 132 DATA WAS PULLED INTO THE SEA BY A HUGE SQUID,DRANK THE WATER AND DIED 133 DATA WAS COVERED BY A HIDEOUS ALGAE AND DRIEDUP IN MOMENTS 134 DATA SWIMMING OYSTERS WITH GIANT PEARLS,IVORY TUSKS FROM DEAD NARWHALS 135 DATA A SPECIES OF GRAIN THAT GROWS IN SALT WATER 136 DATA A SURFACE RAVAGED BY VIOLENT STORMS AND SMOTHERING BLIZZARDS 137 DATA WAS CARRIED OFF BY THE WIND,WAS BURIED IN A SNOWDRIFT 138 DATA WAS GROUND TO POWDER IN A SANDSTORM,THE LOG OF THE LOST SHIP ENTERPRISE 139 DATA A TREE WITH WOOD TOUGHER THAN STEEL,A PLANT THAT SYNTHESIZES HYDROGEN 141 DATA A YOUNG PLANET WITH CONSTANT VOLCANOES AND EARTHQUAKES 142 DATA WAS CAUGHT IN LAVA,FELL INTO A GEYSER,CHOKED TO DEATH ON FLYING ASH 143 DATA A RIVER OF PURE PLATINUM,THE OLDEST METEORITE EVER FOUND 144 DATA A POOL OF SELF-REPLICATING PROTEINS--THEBEGINNINGS OF LIFE! 146 DATA A GLASS-SMOOTH SURFACE COVERED WITH THE WRECKS OF OLD STARSHIPS 147 DATA SANK INTO THE SURFACE AND VANISHED,WAS SUCKED INTO A TINY BLACK HOLE 148 DATA GREW SMALLER AND SMALLER--AND FINALLY DISAPPEARED 149 DATA SMALL SINGULARITIES THAT ALLOW TIME TRAVEL 150 DATA GOLD FROM AN ANCIENT CARGO SHIP,A RADIATION-SUPPRESSION FIELD 198 REM ** WORLDS POPULATED BY HUMANS 199 FOR I=0 TO 9:READ A$,B$,C$,D$,E$,F$,G$:PRINT#2,A$X$B$X$C$X$D$X$E$X$F$X$G$ 200 PRINT I,A$:NEXT 201 DATA A TRIBE OF PRIMITIVE HUNTERS AND FRUIT- GATHERERS 202 DATA WANDERED OFF AND WAS EATEN,OFFENDED THE CHIEF AND WAS KILLED 203 DATA GOT FLEAS THAT CARRIED A DEADLY DISEASE 204 DATA IVORY,PELTS,ANTHROPOLOGICAL DATA 206 DATA A FARMING VILLAGE WHOSE PEOPLE SCRATCH THE SOIL WITH STONE TOOLS 207 DATA GOT ROMANTICALLY INVOLVED AND WAS KILLEDBY A FURIOUS FATHER 208 DATA GOT IN A QUARREL AND WAS MASHED WITH A STONE AX,CAUGHT A POX AND DIED 209 DATA A DOMESTICATED FLYING LIZARD,PRIMITIVE BUT LOVELY POTS,OPALS 211 DATA A BRONZE-USING CIVILIZATION THAT BUILDS HUGE STONE MONUMENTS 212 DATA WAS SACRIFICED TO A RAIN GOD,WAS CRUSHED UNDER A BLOCK OF STONE 213 DATA INSULTED A PRIEST AND WAS POISONED,MAGNIFICENT STONE SCULPTURES 214 DATA A SOFT AND BEAUTIFUL METAL ALLOY,GILT DAGGERS OF CUNNING ARTIFICE 216 DATA A COASTAL VILLAGE OF SEA-FARING TRADERS 217 DATA WAS CARRIED OFF INTO SLAVERY,WAS THROWN OVERBOARD 218 DATA WAS CAUGHT 'BORROWING' A JEWEL AND WAS TORTURED TO DEATH 219 DATA A SNAKE WHOSE VENOM IS SUBTLE AND STRONG,A SPECIES OF SUCCULENT FISH 220 DATA BEAUTIFULLY DECORATED HARPOONS AND FISH KNIVES 221 DATA A PEOPLE WHO DWELL IN A VAST NETWORK OF CAVERNS AND BURROWS 222 DATA WAS BURIED IN THE COLLAPSE OF A TUNNEL,ATE A POISONOUS MUSHROOM 223 DATA GOT LOST FOREVER IN A LABYRINTH,AN EXQUISITELY FLAVORFUL MOLD 224 DATA A BRIGHTLY LUMINOUS FISH,THE LARGEST EMERALDS EVER FOUND 226 DATA A HUGE CITY HOUSED IN A SINGLE MILE-HIGHBUILDING 227 DATA FELL (OR WAS PUSHED) FROM A BALCONY,ARGUED WITH A COP AND WAS SHOT 228 DATA WAS RUN OVER BY A CORRIDOR-TAXI,HIGH-POWERED ROLLER SKATES 229 DATA AN APHRODISIAC THAT WORKS,A PIVOTAL NEW BOOK ON PSYCHOLOGY 231 DATA A PEOPLE WHO LIVE IN THE TOPS OF HUGE DECIDUOUS TREES 232 DATA STUMBLED ON A HIGH BRANCH,WAS EATEN BY A CARNIVOROUS SLOTH 233 DATA WAS KIDNAPPED AND VIVISECTED,THE SEEDS OF A SPECIES OF SENTIENT TREE 234 DATA A MOSS THAT SYNTHESIZES HELIUM--AND FLOATS 235 DATA AN ALGAE THAT SERVES AS A FAST AND POWERFUL COMPUTER 236 DATA A WHOLE TOWN LIVING IN A HUGE BASKET SLUNG UNDER A VAST BALLOON 237 DATA LIT A MATCH AND WAS IMMEDIATELY PUSHED OFF,WAS CARRIED OFF BY A ROC 238 DATA WAS EATEN BY ONE OF THE HUGE CARNIVORES ON THE SURFACE 239 DATA A PLANT THAT TURNS SUNLIGHT INTO USABLE HEAT,A DOMESTICATED BAT 240 DATA CLEVERLY ENGINEERED WINGS THAT ALLOW HUMANS TO FLY 241 DATA A FAMILY OF DRAGON BREEDERS WHO WAGER ONTHE VICIOUS WYRMFIGHTS 242 DATA CAUGHT A DRAGON'S EYE AND BECAME LUNCH,WAS KILLED OVER A WYRMFIGHT BET 243 DATA WAS FORCED TO MARRY A LOCAL AND STAY ON THIS WORLD 244 DATA DRAGONS' EGGS,HALLUCINOGENIC DRAGONS' DUNG 245 DATA A SMALL DRAGON PARASITE THAT CAUSES LOSTLIMBS TO REGENERATE 246 DATA A TRIBE OF HORSEMEN WHO TEND VAST HERDS OF WOOLLY MAMMOTHS 247 DATA WAS TRAMPLED IN A STAMPEDE,ANNOYED A NATIVE WITH A BLOWGUN 248 DATA STOOD TOO NEAR A FLATULENT MAMMOTH AND SUFFOCATED 249 DATA MAMMOTH IVORY,CHEESE MADE FROM MAMMOTH MILK 250 DATA "A BREED OF SMALL, TOUGH, FAST, AND ALMOST SENTIENT HORSES" 298 REM ** WORLDS POPULATED BY ALIENS 299 FOR I=0 TO 9:READ A$,B$,C$,D$,E$,F$,G$:PRINT#2,A$X$B$X$C$X$D$X$E$X$F$X$G$ 300 PRINT I,A$:NEXT 301 DATA A RACE OF SENTIENT SQUIDS THAT TEND GARDENS UNDER THE SEA 302 DATA BROKE AN AIRHOSE AND DROWNED,WAS HYPNOTIZED AND LURED INTO OPEN JAWS 303 DATA TOOK A SAMPLE OF CORAL THAT TURNED OUT TO BE SACRED 304 DATA EXQUISITE BANSAI CORAL,PET SEAWEED THAT DOES TRICKS,SEABOTTOM SALMON 305 DATA CREATURES OF PURE MIND THAT DWELL BY POOLS AND STREAMS 306 DATA DIED TRYING TO SEPARATE BODY FROM MIND,BECAME DEPRESSED AND CATATONIC 307 DATA WENT MAD FROM DREDGED-UP MEMORIES OF PAST CRIMES 308 DATA PROOF OF UNPROVABLE MATHEMATICAL PROPOSITIONS 309 DATA THE SECRET OF FOLDED SPACE,A COMPLETE MAP OF THE UNIVERSE 310 DATA MONKEYISH TREE-DWELLERS THAT LIVE ONLY TO SING IN THE TREETOPS 311 DATA DIDN'T WEAR EARPLUGS AND WAS ENRAPTURED BY SONG--FORGETTING TO BREATHE 312 DATA TRIED TO SING A DUET AND WAS PELTED TO DEATH WITH FRUIT 313 DATA ATE A TREE SLUG THAT REGENERATED 1000 TIMES INTERNALLY 314 DATA RECORDINGS OF SONGS,AN ADVENTUROUS YOUNGSINGER OF SURPASSING TALENT 315 DATA AN 'UNSONG BIRD' THAT GENERATES A FIELD OF SILENCE WHEREVER IT GOES 316 DATA ON A PLANET OF DINOSAURS--A RACE OF WISEBIRDS THAT NEVER LAND 317 DATA WAS STEPPED ON BY A BRONTOSAURUS,FELL INTO A BOG AND BECAME A FOSSIL 318 DATA TRIED TO STEAL AN EGG AND WAS PICKED UP AND DROPPED 319 DATA MIDGET HADRODONS THAT MAKE GREAT PETS,PERFUME-EMITTING DRAGONFLIES 320 DATA XENOLOGICALLY FASCINATING FILMS OF MID- AIR REPRODUCTION 321 DATA CREATURES THAT LIVE BY CREATING ILLUSIONIN THE MINDS OF THEIR PREY 322 DATA TRIED TO CROSS AN IMAGINARY BRIDGE,WAS CAUGHT CHEATING AT POKER 323 DATA DID MAGIC TRICKS THE ALIENS COULDN'T DO AND WAS TAKEN PRISONER 324 DATA PERMANENT ILLUSIONS TIED TO SMALL JEWELS,A FAST-GROWING LEGUME 325 DATA A FERRET THAT IS INVARIABLY DRAWN TO HIGH INTELLIGENCE 326 DATA A RACE OF SHAPECHANGERS WHO HAVE FORGOTTEN THEIR 'REAL' SHAPE 327 DATA WAS SHOT BY A GYPSY WHO THOUGHT IT WAS AN IMPOSTOR,GOT A FATAL ILLNESS 328 DATA WENT HUNTING AND BAGGED THE WRONG PREY,A NET-SPINNING TREE 329 DATA SHAPE-CHANGING PROTOPLASM,OZONE-EMITTING AIRBORNE SLIME 330 DATA CLUMSY GRASS-EATING BEHEMOTHS INFESTED BY SENTIENT BLOODSUCKERS 331 DATA WAS TAKEN OVER BY A SUCKER,WAS TRAMPLED BY AN ANGRY HERD 332 DATA SAID SOMETHING SLANDEROUS ABOUT THE SUCKERS,SWEET-SMELLING DUNG 333 DATA AN INTELLIGENCE-ENHANCING DISTILLATION OF SUCKER HORMONES 334 DATA A SUCKER-EATING BAT 335 DATA TREES THAT GROW CLONES OF ANY CREATURE AS THEIR FRUIT 336 DATA WAS DEVOURED AND CLONED 500 TIMES TO FORM A VILLAGE 337 DATA CLIMBED A HUNGRY TREE,CHOPPED DOWN THE CHIEF'S DAUGHTER FOR FIREWOOD 338 DATA A SEEDLING OF A TREE THAT COULD CLONE THE DEAD 339 DATA A FIBROUS PLANT WITH STEEL-LIKE THREADS,A FIRE-BREATHING MOUSE 340 DATA A RACE OF CATS THAT KEEP DOGS AND MICE AS SLAVES--WHILE RATS REBEL 341 DATA WAS LOBOTOMIZED AND TRAINED TO FETCH FORTHE KING OF CATS 342 DATA TRIED TO PET A DOG-SOLDIER,WAS CARRIED OFF IN THE NIGHT BY A RAT PACK 343 DATA A DOG THAT CAN REPEAT HOURS OF CONVERSA-TION WORD FOR WORD 344 DATA MICE TRAINED AS HAIRDRESSERS,PLANS FOR CATS TO TAKE OVER THE UNIVERSE 345 DATA ROBOTS THAT EVOLVED FROM AN ANCIENT STARSHIP SERVICE STATION 346 DATA WAS CAUGHT WITH A DATA-ERASING MAGNETIC DEVICE 347 DATA WAS MISTAKENLY LUBRICATED BY A REPAIRBOT,BEAT THE WRONG ROBOT AT CHESS 348 DATA ORGANICALLY-GROWN POSITRONIC BRAINS,A METAL-PRESERVING FUNGUS 349 DATA FLEA-SIZED SELF-REPLICATING REPAIRBOTS 990 CLOSE 2 1000 END